home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 5-Fonts & Software / Applications / DesignStudio / DesignStudio™ 1.01 / DesignStudio™ 1.01.rsrc / PSCD_265 < prev    next >
Text File  |  1990-08-09  |  223b  |  10 lines
  1. 3 dict begin
  2. currentscreen
  3. /oldproc exch def
  4. /oldangle exch def
  5. /oldfreq exch def
  6. 60 45 {abs exch abs 2 copy add 1 gt
  7. {1. sub dup mul exch 1. sub dup mul add 1. sub}
  8. {dup mul exch dup mul add 1. exch sub}
  9. ifelse} setscreen
  10.